10 HOME:PRINT"*** J-R'S MULTI-CONVERT ***":C$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXY":INPUT"BASE1, BASE2, N ";Y,Z,A$:FORI=1TOLEN(A$):D=ASC(MID$(A$,I,1))-48:IFD>9THEND=D-7
20 S=S+D*Y^(LEN(A$)-I):NEXTI:FORI=1TO39:F=INT(S/Z):R=S-F*Z:B$+MID$(C$,R+1,1)+B$:S=F:NEXTI:PRINTB$